home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Widget Wizard.dir / WidgtBehaviors_26_Intersect Me with Another.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  579 b   |  24 lines
  1. property IntersectSprite, DoWhat
  2.  
  3. on getPropertyDescriptionList
  4.   set D to [:]
  5.   addProp(D, #IntersectSprite, [#default: 1, #format: #integer, #comment: "Intersect With Sprite #:"])
  6.   addProp(D, #DoWhat, [#default: #intersect_event, #format: #symbol, #comment: "Event to Send:"])
  7.   return D
  8. end
  9.  
  10. on getAssocMembers
  11.   set myPropList to [IntersectSprite]
  12.   return myPropList
  13. end
  14.  
  15. on exitFrame me
  16.   if sprite the spriteNum of me intersects sprite(the IntersectSprite of me) then
  17.     doIntersection(me)
  18.   end if
  19. end
  20.  
  21. on doIntersection me
  22.   sendAllSprites(the handler_name of me)
  23. end
  24.